unit indirectosObra;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, comprasObra, Provider, SqlExpr, ppCtrls, ppBands, ppVar,
  ppPrnabl, ppClass, ppCache, ppProd, ppReport, ppDB, ppComm, ppRelatv,
  ppDBPipe, DB, DBClient, DBLocal, DBLocalS, Buttons, StdCtrls, Grids,
  DBGrids, RXDBCtrl, Mask, ToolEdit, DBCtrls, Menus;

type
  TfrmIndirectosObra = class(TfrmComprasObra)
    procedure grdSueldosCellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmIndirectosObra: TfrmIndirectosObra;

implementation

uses MDatos;

{$R *.dfm}

procedure TfrmIndirectosObra.grdSueldosCellClick(Column: TColumn);
var
  ds: TSQLDataSet;
begin
  ds := TSQLDataSet.Create(self.Owner);
  try
    ds.SQLConnection := Datos.Con;
    ds.CommandText := 'SELECT sum(GASTO_PRESUPUESTO.IMPORTE)/100*PRESUPUESTO.SUBT_MO'
    +'*(1+PRESUPUESTO.IVA/100) S '
    +'FROM PRESUPUESTO LEFT JOIN GASTO_PRESUPUESTO '
    +'ON (PRESUPUESTO.ID_PRESUPUESTO = GASTO_PRESUPUESTO.ID_PRESUPUESTO) '
    +'WHERE GASTO_PRESUPUESTO.ID_PRESUPUESTO = '+self.cdsID_PRESUPUESTO.AsString
    +' GROUP BY PRESUPUESTO.SUBT_MO, PRESUPUESTO.IVA';
    ds.Open;
    self.grdSueldos.Hint := 'COSTO INDIRECTO TOTAL C/IVA: $'+FloatToStrF(ds.Fields[0].AsFloat,ffNumber,15,2);
  finally 
    ds.Free;
  end;

end;

end.
